home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / Frontier 4.0.1 / Frontier user guide (html) / tourpix / tour43.gif < prev    next >
Graphics Interchange Format  |  1996-01-24  |  3.5 KB  |  400x341  |  1-bit (2 colors)  |  [GIFf/BABL]
   ocr: on countFrontierFiles (path) local (matchesFound = 0) <number of UserLand Frontier files we found on counter (folder) fileloop (f in folder) if file.isFolder (f) counter (f) else msg file.filefromPath (f)) if file.creator (f) == LAND' matchesround** counter file.folderFromPath (path)) if matchesFound == 0 local (s == file.fileFromPath file.folderfromPath (path))) s= "There are no rontier files in the - + s+ - - folder." dialog.alert (s) else local (s = file.fileFromPath file.folderFromPath (path))) s="There were " + matchesFound + " Frontier files in the "+s+ t folder. - dialog.alert (s)